home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Dev / powerd / lib / powerd_lib.lha / PowerD / ListCmp.ass < prev    next >
Encoding:
Text File  |  2000-02-26  |  277 b   |  22 lines
  1. ; a1 - dest
  2. ; a0 - src
  3. ; d0 - length
  4.  
  5.     xdef    _ListCmp
  6.  
  7. _ListCmp    cmp.w    #-1,d0
  8.     bne.s    .1
  9.     move.w    (-2,a0),d0
  10. .1    cmp.w    (-2,a1),d0
  11.     bne.s    .4            ; lendest<>lensrc
  12.     cmp.w    #1,d0
  13.     bmi.s    .3
  14.     subq.w    #1,d0
  15. .l    cmpm.l    (a0)+,(a1)+
  16.     bne.s    .4
  17.     dbra    d0,.l
  18. .3    moveq    #-1,d0
  19.     rts
  20. .4    moveq    #0,d0
  21.     rts
  22.